' Boxes
' This program demonstrates the box-drawing capabilities
'   of the LINE statement.

CLS

delay% = 800

INPUT "Hollow or solid boxes (H or S)?  ", box$
PRINT "Press any key to stop..."

WHILE INKEY$ = ""
    IF INT(RND(1) * 2) = 0 THEN
        shade% = 30                                     ' white
    ELSE
        shade% = 33                                     ' black
    END IF
    x1pos% = INT(RND(1) * 490)               ' start coordinates
    y1pos% = INT(RND(1) * 296)
    x2pos% = INT(RND(1) * 490)               ' end coordinates
    y2pos% = INT(RND(1) * 296)
   
    IF UCASE$(box$) = "H" THEN
        LINE (x1pos%, y1pos%)-(x2pos%, y2pos%), shade%, B
    ELSEIF UCASE$(box$) = "S" THEN
        LINE (x1pos%, y1pos%)-(x2pos%, y2pos%), shade%, BF
    END IF

    FOR i% = 1 TO delay%                     ' delay loop
    NEXT i%

WEND
